www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_Ywntnew.asp

    <%Response.Charset = "GB2312"
Function bytes2BSTR(vIn)
dim i
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

function GetSource(url)   
   //取得url页面的数据.   
   dim oXmlHttp,oStream   
   set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") 
   oXmlHttp.open "GET",url,false
   oXmlHttp.send()
   GetSource = bytes2BSTR(oXmlHttp.responseBody)
end function
Response.Write GetSource("http://www.ywnt.net/AJAXywntnew.asp")
%>